;; -*- Emacs-Lisp -*-

;; Time-stamp: <2010-04-10 20:15:43 Saturday by ahei>

(require 'util)

(eal-define-keys-commonly
 global-map
 `(("C-x I" info-max-window)))

(apply-args-list-to-fun
 'def-command-max-window
 `("info"))

(defun info-settings ()
  "settings for `info'."
  (require 'info+)
  (require 'emaci)

  (define-key Info-mode-map [mouse-4] 'mwheel-scroll)
  (define-key Info-mode-map [mouse-5] 'mwheel-scroll)

  (define-key-list
    Info-mode-map
    `(("j"     next-line)
      ("k"     previous-line)
      ("h"     backward-char)
      ("l"     forward-char)
      ("w"     emaci-forward-word-or-to-word)
      ("/"     describe-symbol-at-point)
      ("U"     Info-up)
      ("u"     View-scroll-half-page-backward)
      ("Q"     kill-this-buffer)
      ("o"     other-window)
      ("SPC"   scroll-up)
      ("C-h"   Info-up)
      ("N"     Info-next-reference)
      ("P"     Info-prev-reference)
      ("'"     switch-to-other-buffer)
      ("."     find-symbol-at-point)
      ("C-c ," Info-history-back)
      ("C-c ." Info-history-forward))))

(eval-after-load "info"
  `(info-settings))

(provide 'info-settings)
